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SEQ 0003 
72 
73 1. PROGRAM ABSTRACT 
74 
75 
76 The KDJ11-8 is a PDP-11 CPU that incorporates the J1ll chip set as the 
77 heart of the processor. It is a quad height Q22 bus module. The 
78 KDJ11-B has two on-board ROM's. One of them, the 16-bit addressable 
79 ROM, contains the self-test and the boot codes. The other ROM, the 
80 8-bit addressable one, contains the base area with hardware selection 
81 perameters, optional bootstraps, optional UFD (User Friendly 
4 Diagnostic) system desctiption area, and optional foreign language 
text. 
84 
85 On units to be shipped to non-English speaking countries, a dummy or 
86 "null" language is loaded into the EEPROM. The purpose of this is to 
87 disable English language error messages when the system is first 
88 installed. If and when the system passes its internal self tests, 
89 the user will be instructed to run a UFD (User Friendly Diagnostics) 
90 package which will be part of a "country kit” for each seperate 
91 language. The UFD package will use the local language for the 
92 particular country and, in addition, will load diagnostic and error 
93 messages in the local language into the EEPROM, so each subsequent 
94 power-up or reboot will have diagnostic and error messages in the 
95 user's own language. 
96 
97 The purpose of this program is to load the local language into the 
98 EEPROM. If it detects an error, the program will attempt to restore 
99 the “old” language, if any and will print a message informing the 
100 user of that fact. 
101 
102 2. SYSTEM REQUIREMENTS 
103 
104 Hardware Requirements 
105 
106 To run successfully this utility needs: 
107 
108 1. KDJ11-B CPU module 
109 2. console terminal 
110 3. at least 28K of memory 
111 
112 
113 3. LOADING AND STARTING PROCEDURES 
114 
115 To start-up this program: 
116 
117 1. Boot XXDP- 
118 
119 2. Type “R NAME”, where NAME is the name of the BIN or BIC 
ic file for this program. 
121 
122 The starting address of the program is 1000. 
123 Note: if trying to restart the program in an arbitrary place after 
124 HALT on Break the following registers should be set up: 
125 17777572=0 to disable memmory management 
126 17777520=1000 to clear diagnostic mode (bit 8), but still save 
127 HALT on Break 
| 128 17777746=400 to flush the cache 
\ 
| 
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4. SPECIAL ENVIRONMENTS 

The program is not APT compatible. 

S. PROGRAM OPTIONS 

None. 

6. EXECUTION TIMES 

The program runs in under 20 seconds. 

7. ERROR INFORMATION 

7.1 DEFECTIVE BYTE IN EEPROM 

After each write, the Byte which should have been written is 
compared to the Byte in the proper location, and if it is not correct, 
the following error message is displayed: 


EEPROM write error, PCR page n, address mmmmmm. 
Date written qqq, date read rrr. 


where n is the EEPROM page selected by the Page Control Register (PCR), 
mmmmmm is the physical eddress of the bad byte in question, aqaq is the 
byte value that was written out to the address and rrr what was read 
back in after the write. (should be identical to qaq) 


7.2 PROCESSOR NOT KDJ11-8 


The program checks the type of CPU it is running on, which must be a 
KDJ11-B processor (MFPT returns 5 in r0). If not, the following message 
is printed: 


Language area not supported by this processor. 
7.3 “OLD” BOOT ROM CODE, LANGUAGE AREA NOT SUPPORTED 


The program checks to see if the ROM code version is 7.0 or later. 
Earlier versions do not support the language area in the EEPROM 
and would print garbage if one was loaded. The program prints the 
following message in that case: 


Current Boot ROM version does not support language area. 


In addition, the language bit in the setup area of the EEPROM is 
cleared, to prevent “garbage” from being printed. 


7.4 CHECKSUM ERROR IN SETUP AREA 


The checksum in the setup area is checked to see if it contains a valid 
checksum. Also, bytes 6 and 103 (addresses 17765022 and 17765314, 
respectively) are checked to see if they contain 0 and 252 octal, 
respectively. If any of these conditions is not met, the following 
message is printed: 


EEPROM checksum error in setup area. 
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No attempt is made to correct a checksum error. 
7.5 DIFFERENCES BETWEEN UFD "QUIET" MODE AND “STANDALONE” MODE 


When this program is run in UFD "Quiet" mode (which will usually be 
the case) none of the error messages will appear. If no error is 
detected, no messages whatsoever are printed. If any error is 
detected, the program will attempt to restore the UFD and songuege 
areas to the state they were in when the program was started. I 
the restoration was successful, the following message is printed in 
the user's language: 


Unable to load <language> 

where <language> is the name of the language. If the restoration 
was not successful, or there was no local language, the following 
message is printed. 

Unable to load <language> - reverting to U.S. English 

where <language> is as above. The program then clears the bit 

im the EEPROM setup area selecting a local language which means 
that the ROM English will be used from now on. 

8. EXAMPLES 


After booting XXDP+ and running the program, no message should 
appear, just the XXDP dot prompt ( . ) 


If a problem occurred, one of the messages in section 7 should appear. 


9. PROGRAM DESCRIPTION 


The program consists of a body of code which loads the language into 
the local language area of the EEPROM. The routine that performs the 
write first checks the current value of the byte to be written and if 
it is the same, no write is performed. This is done to extend the 
life of the EEPROM. The write routine also checks the value in the 
EEPROM after the write to insure it was written correctly. After a 
succesful run, no message appears, after an unsuccessful attempt to 
write any of the bytes in the EEPROM, one of the message in section 7 
appears. If run under UFD “Quiet” mode, no message is printed if the 
program was successful, otherwise one of the messages in 7.5 appear. 
In both cases, the XXDP prompt appears. 


SEQ coos! 
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234 . SBTTL 
235 000000 . ENABL 
236 »NLIST 
237 -LIST 
238 

239 177520 BCSR 
240 177522 PCR 
241 177522 PCRLB 
242 165000 E2PROM 
243 165316 E2PAR 
244 165006 E2LLB 
245 166900 ENDE2R 
246 173002 RMVTST 
247 025370 DELAY 
248 000140 LNGHDR 
249 000040 UF DHDR 
250 000002 RETRY 
251 

252 000004 MAXERR 
253 

254 177524 BOR 
255 000015 CR 

256 000012 LF 

257 000200 BIT7 
258 000100 BIT6 
259 000011 tab 
260 000010 backsp 
261 000040 space 
262 000033 esc 
263 

264 002067 ROMSZ 
265 

266 

277 


MACRO YOS.02 Wednesday 


06-Mer-85 15:24 Page 5 


G1 


PROGRAM CONSTANTS 
ABS 


MD ,CND 
ME 


177520 
177522 
177522 
165000 
E2PROM-316 
E2PROM+6 
E2PROM+1000 
173002 
11000. 

140 

040 

2 


4 
177524 


FLEND-TEXT 


SEQ 0006 


;E2PROM PARITY BYTE 

;LOCAL LANGUAGE BIT IN E2PROM 
;LAST ADDRESS OF E2PROM+-2 

;WORD TO TEST ROM VERSION NUMBER 


31.0. OF A LANGUAGE AREA 

31.0. OF A UFD BLOCK 

sNUMBER OF ATTEMPTS TO WRITE A 
;BYTE IN E2PROM BEFORE GIVING UP 
3NO. OF ERRORS ALLOWED IN LOCAL 
sLANGUAGE TEXT BEFORE QUITTING 


;SIZE IN BYTES OF TEXT TO BE 
;LOADED INTO EEPROM 





001000 
001004 
001010 


001016 
001020 
001024 
001026 


001026 
001032 
001034 


001036 
001042 
001044 
001050 
001052 
001056 
001060 
001062 
001064 
001066 
001072 
001074 
001102 
001104 


001104 
001110 
001112 
001114 
001120 
001126 
001132 
001134 
001136 


001136 
001142 
001144 


001150 
001154 
001160 
001162 
001164 
001166 


- oo | 


001000 


005037 
013746 
112737 


000007 
020027 
001404 


000001 
000027 
012700 
104003 
000443 


012700 
0c5001 
012703 
012005 
042705 
060501 
077305 
105701 
001007 
105737 
001904 
123727 
001404 


000001 
000027 
012700 
104003 
000414 
005067 
012737 
023727 
000250 
001405 


000001 
000027 
012700 
104003 
000167 


012700 
012701 
010005 
005003 
111004 
060403 





COEECA EEPROM FR LANG LOR 
CHECK FOR CERTAIN EXCEPTIONS FIRST 


177522 
177520 
000067 


000005 


002563 


165000 
000151 
177400 


165022 
165314 


002737 


001304 
000016 
173002 


002644 


000636 


165776 
000005 
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-=1009 
START: 
177520 


1$: 


2015: 


000252 
2028: 


300$: 
177522 


99$: 


2$: 


4$: 


- SBTTL 
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SEQ 0007_-='! 
CHECK FOR CERTAIN EXCEPTIONS FIRST 
aePCR ;SELECT PAGE 0 OF EEPROM 
aevBCSR, -(SP) ;SAVE OLD BCSR VALUE 
#67, aBCSR ;WRITE ENABLE THE E2PROM & ENABLE ROM 
;GET PROCESSOR TYPE 
RO, #5 ;CHECK TO SEE IF ORION 
1$ ;YES - CONTINUE 
#FMSG2 ;FIELD-SERVICE MESSAGE 
NARGS 
NTYPE , #FMSG2 
#FHSG2 .RO 
99$ 
#E2PROM,RO ;STARTING ADDRESS TO CHECKSUM 
R1 ;INITIALIZE CHECKSUM 
#105. ,R3 ;NO. OF BYTES TO CKSUM 
CRO)+,RS ;GET A BYTE 
#177400,R5 ;NO BUS NOISE, THANK YOU. 
RS,R1 ;ACCUMULATE CHECKSUM 
R3,201$ ;CONTINUE TILL DONE 
Ri 31S CKSUM 0? 
202$ ;NO, ERROR 
@eE2PROM+22 ;BYTE TO TEST FOR VALID ROM, SHOULD BE 0 
202$ :NO, ERROR 
ASE 2PROM-+ 314, #252 ;BYTE TO TEST FOR VALID ROM 
300$ ;GO TO NEXT CHECK IF OK 
#FMSG4 ;FIELD SERVICE MESSAGE 
NARGS 
NTYPE , #FMSG4 
#FMSG4,RO 
3 
99$ ;QUIT 
OLDSIZ ;SET FLAG THAT ROM EXISTS, CURRENTLY NO LANGUAGE 
#7%2,Q#PCR ;SEL. LAST PAGE OF 2K E2PROM, PGO OF ROM 
@YRMVTST,(PC)+ ;SEE IF ROM VER. 7 OR LATER (CAN SUPPORT LANGUAGE AREA) 
2$ ;YES - CONTINUE 
#FMSG3 
NARGS 
NTYPE , #FMSG3 
#FHSGS. RO 
QUIT1 
SAVE OLD LANGUAGE/UFD AREA IN CASE IT MUST BE RESTORED 
#ENDE2R-2,RO ;LAST ADDRESS (CKSUM) OF E2PROM 
#5,R1 ;NO. OF BYTES IN HEADER TO CHECKSUM 
RO.RS ;SAVE ADDRESS 
(RO),R4 ;GET A BYTE 
R4,R3 ;ACCUMULATE CHECKSUM 
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SAVE OLD LANGUAGE/UFD AREA IN CASE IT MUST BE RESTORED 


355 001170 
356 001172 
357 001174 
358 001176 


360 001200 


380 001262 
381 001266 
382 001270 
383 001274 
384 001300 
385 001304 
386 001306 
387 001312 
388 001316 
389 001322 
390 001324 
391 001330 
392 001334 
393 001340 
394 001344 
395 001346 
396 001350 


398 001352 
399 001356 
400 001362 


404 001364 
405 001370 
406 001374 
407 001376 
408 001402 
409 001406 
410 001412 
| 411 001416 


005740 


010167 
010167 
000500 


120427 
001075 
010167 
062701 
004767 
005003 
004767 
004767 
004767 
010546 
004767 
110566 
004767 
116600 
012601 
105703 
001025 


042700 
120027 
001020 


042701 
062701 
010104 
010167 
066701 
012702 
004767 
001404 


000001 
177437 


160000 
000005 
900040 


005165 
000666 


001150 
001146 


000140 


001130 
000005 
001036 


001002 
000776 
000772 


000764 
000001 
000754 
000001 


177437 
000040 


160000 
000005 


001024 
001016 
005165 
000516 
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;WE HAVE BOTH A 


BIC 
ADD 
MOV 
MOV 
ADD 
MOV 
CALL 
BEQ 
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-CRO) 
R1,4$ 
R3 

WRL ANG 


-C(R5),R4 
-CRS),-CSP) 
R4,1(SP) 
#177437 ,R4 
(SP)+,R1 
#160000 ,R1 
#5,R1 

R4, #UFDHDR 
LANG 

R1,R4 
#BUFF ,R2 
MOVROM 

WRL ANG 


R1,OLOSIZ 
R1,UFOSIZ 
WRL ANG 


R4,#LNGHDR 
WRL ANG 
R1,0LDSIZ 
#5,R1 
ROMADR 

R3 

REAROM 
REAROM 
REAROM 
RS,-CSP) 
REAROM 
RS,1(SP) 
REAROM 
1(SP),RO 
CSP )+,R1 
R3 

i$ 


#177437,RO 
RO, #UFDHDR 
i$ 


LANGUAGE AREA AND A UFD BLOCK. 


#160000 ,R1 
#S5,R1 
R1,R4 
R1,UFDSIZ 
OLOSIZ,R1 
#BUFF ,R2 
MOVROM 

2s 


s;CORRECT ADDRESS 

;LOOP FOR 5 BYTES 

sIF NOT ZERO, NO LANGUAGE LOADED 
sNON-EXISTANT OR CORRUPTED LANGUAGE - SKIP 


sHIGH BYTE OF BYTE COUNT 

;LOW BYTE OF BYTE COUNT 

;SET UPPER BYTES OF SIZE 

sEXTRACT ID CODE 

;GET SIZE BACK 

3R1 NOW CONTAINS SIZE OF BLOCK IN BYTES 

sADD BYTE COUNT FOR HEADER BLOCK 

;SEE IF IT IS A UFD BLOCK 

3NO, CHECK FOR A LANGUAGE 

sSAVE SIZE 

sADDRESS OF SAVE BUFFER 

;MOVE UFD AREA TO MEMORY 

;BAD CKSUM, QUIT 

sNOTE - R3 CONTAINS CHECKSUM OF BLOCK AND HEADER 
sHOWEVER THE CHECKSUM OF HEADER IS ALREADY KNOWN 
;TO0 BE O SO R3 IS A VALID CHECK OF UFD BLOCK 
sSAVE TOTAL SIZE 

sSAVE SIZE OF UFD AREA 


sIS THIS A LANGUAGE HEADER? 

s3NO - QUIT 

sSAVE SIZE FOR NOW 

s;ADD SIZE OF (POSSIBLE) UFD HEADER 
;SET UP PCR AND RO 

sINITIALIZE CKSUM 

;GET A BYTE 

;GET A BYTE 

;GET A BYTE 

sSAVE LOW BYTE OF SIZE FOR LATER 
;GET A BYTE 

sSAVE HIGH BYTE OF SIZE AND ID 
sGET A BYTE 

3GET I.D. 

sGET SIZE 

;SEE IF VALID CKSUM 

s;NO - WE HAVE LANGUAGE ONLY. 


;GET ID ONLY 
:IS THIS A UFD BLOCK? 
sNO, IGNORE IT. 


SAVE THE UFD BLOCK. 


;GET RID OF ID 

;SIZE OF HEADER 

s;BYTE COUNT TO MOVE 

sSAVE UFD SIZE 

sADD SIZE OF LANGUAGE AREA 
sMEMORY ADDRESS TO SAVE TO 
;SAVE UFD AREA 

sYES, IT IS VALID, CONTINUE 








sea coos =! 
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SAVE OLD LANGUAGE/UFD AREA IN CASE IT MUST BE RESTORED 


SEQ 0009 


> 
o 
@ 


412 001420 005067 001002 CLR UFDSIZ ;NO UFD AREA 
413 001424 012702 005165 1$: MOV #BUFF ,R2 sRESET R2 
414 001430 016701 000770 2s: MOV OLDSIZ,R1 ;SIZE OF LANGUAGE AREA 
415 001434 010104 MOV R1,R4 sBYTES TO MOVE 
416 001436 066767 000764 000760 ADD UFOSIZ,OLDSIZ sOLOSIZ IS THE TOTAL SIZE 
417 001444 004767 000464 CALL MOVROM sSAVE LANGUAGE AREA 
418 001450 001404 BEQ WRL ANG sLANGUAGE IS GOOD 
419 001452 005067 000746 CLR OLDSIZ ;NO LANGUAGE 
rr 001456 005067 000744 CLR UFDSIZ sNO UFD AREA 
ant sGENERATE CHECKSUM FOR FOREIGN LANGUAGE TEST FILE & WRITE TO THE MEMORY IMAGE 
424 001462 012700 003076 WRLANG: MOV #TEXT,RO sADORESS OF BEGINNING OF TEXT 
425 001466 005001 CLR Ri sINIT CHECKSUM 
426 001470 112002 25$: MOVB (RO)+,R2 sREAD A BYTE 
427 001472 160201 SUB R2,R1 sACCUMULATE CHECKSUM 
428 001474 020027 005157 CMP RO, #CKSUM sFINISHED ALL TEXT ? 
429 001500 001373 BNE 25% sNO-CONTINUE 
on 001502 110110 MOVB R1,(RO) ;WRITE THE CHECKSUM 
axk -SBTTL LOAD LOCAL LANGUAGE INTO E2PROM 
mo sWRITE UFD € LOCAL LANGUAGE BLOCKS 
436 001504 016701 000716 MOV UFDSIZ,R1 ;GET THE LENGTH OF THE UFD 
437 001510 062701 002067 ADD #ROMSZ,R1 3... & THE TEXT AREA 
438 001514 004767 000622 JSR PC ,ROMADR ;COMPUTE E2PROM PAGE AND ADDR 
439 001520 016701 000702 MOV UFDSIZ,R1 sSIZE OF UFD AREA TO SAVE 
440 001524 001406 BEQ 40$ ;NO UFD AREA - SKIP 
441 001526 012702 905165 MOV #BUFF ,R2 sADDRESS OF BEGINNING OF UFD AREA 
442 001532 112205 35$: MOVB C(R2)+,R5 sGET SOME DATA 
443 001534 004767 000126 CALL E2WRIT ;GO WRITE IT 
444 001540 077104 SOB R1,35$ sFINISHED UFD? 
445 ;YES-DO LANGUAGE 
446 001542 012702 003076 40$: MOV #TEXT ,R2 sADDRESS OF EEPROM LANGUAGE TEXT 
447 001546 012701 002067 MOV #ROMSZ,R1 sBYTES TO MOVE 
448 001552 112205 50$: MOVB (R2)+,R5 sGET SOME DATA 
449 001554 004767 000106 CALL E2WRIT sWRITE A BYTE 
450 001560 077104 SOB R1,50$ s;ARE WE DONE? 
451 sYES - EXIT 
452 001562 112705 000200 MOVB #BIT7,RS ; TURN ON LOCAL LANGUAGE BIT IN 
or ;SETUP AREA, THEN EXIT 
454 
455 001566 105037 177522 EXIT: CLRB a¢PCRLB ;SELECT PAGE 0 
456 001572 012700 165006 MOV #E2LLB,RO ;E2PROM WORD CONTAINING LOCAL LANG. BIT 
457 001576 111001 MOVB C(RO),R1 
458 001600 142701 177577 BICB #tCBIT7,R1 sGET CURRENT LOCAL LANGUAGE BIT 
459 001604 120501 CMPB R5,R1 sSEE IF BIT ALREADY CORRECT 
460 001606 001415 BEQ EXIT1 ;YES, JUST RETURN 
461 001610 112701 000200 MOVB #BIT7,R1 ;LOCAL LANGUAGE BIT 
462 001614 111005 MOVB CRO),RS ;GET OLD WORD AGAIN 
463 001616 074105 xOR R1,R5 ;FLIP THE BIT | 
464 001620 004767 000336 CALL WRBYTE ;CHANGE LOCAL LANGUAGE BIT IN E2PROM 
465 001624 001006 BNE EXIT1 sWOULD NOT WRITE, JUST GIVE UP 
466 001626 012700 165316 MOV #E2PAR,RO sADODRESS OF CKSUM BYTE 
467 001632 111005 MOVB CRO),RS ;GET OLD CKSUM BYTE 
001634 074105 xOR R1,R5 ;CORRECT THE CKSUM 
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LOAD LOCAL LANGUAGE INTO E2PROM 


469 
470 
471 


vl 
r= 
“N 


001636 
001642 


001642 
001646 
001650 
001654 
001660 
001664 


001666 
001672 
001674 


001700 
001706 


001710 
001714 


001716 
001722 


001724 
001730 


001732 
001736 


001740 
001742 
001746 
001750 
001752 


001756 
001762 
001766 
001770 
001774 
002002 


002004 
002006 
002014 
002016 


002016 
002022 
002024 
092030 


002032 
002034 


004767 


000001 
000027 
012700 
104044 
142716 
012637 
005037 
000207 


004767 
001431 
005267 


026727 
003036 


020227 
101433 


020227 
101030 


132705 
001425 


132710 
001422 


111004 
116703 
060503 
160403 
110367 


062700 
020027 
001005 
012700 
062737 
000207 


005726 
032737 
001403 


000001 
000027 
012700 
104044 
016701 
100704 


001427 
004767 





000320 


002560 


000060 
177520 
177522 


000270 
000522 
000516 


000004 
003173 
005156 
000140 


000140 


003211 


003201 


000002 
166000 


165000 
000002 177522 


000100 000052 


003006 
000374 


000302 


EXIT1: 


E2wRIT: 


3$: 


10$: 


QUIT: 
QUIT1: 


S$: 


CALL 
-FRCTYP 
. NARG 





K1 
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WRBYTE 


#CRLF 

NARGS 

NTYPE, #CRLF 
#CRLF ,RO 

ae 

#60, (SP) 

(SP )+,a#BCSR 
aePCR 

PC 


WERR , #MAXERR 
QUIT 


R2,#M001 
QUIT 


R2, #MEND1 
QUIT 


#140,R5 
QUIT 


#140, (RO) 
QUIT 


CRO),R4 
CKSUM,R3 
RS,R3 
R4,R3 
R3,CKSUM 


#2,RO 

RO, #ENDEQR 
10$ 
#E2PROM,RO 
#2,a0PCR 


(SP )+ 
#BIT6,a#52 
S$ 


#MSGO00 

NARGS 
NTYPE , #MSGOOO 
#MSGO00 ,RO 

a4 

OLDSIZ,R1 
EXIT1 


40$ 
PC,ROMADR 


;UPDATE E2ROM 
sCOMPLETE LINE 


;BE SURE ROM IS DISABLED 
sRESTORE BCSR 


sWRITE THE BYTE TO E2PROM 
;OK THIS TIME 
sFLAG BAD BYTE 


;CHECK TO SEE IF PAsT THE MAXIMUM ERROR 
sLIMIT OF BAD BYTES ALLOWED 


;CHECK TO SEE IF ERROR IS IN MESSAGE 
sBYTE COUNT (MUST BE CORRECT) 


;CHECK TO BE SURE DICTIONARY AND UFD 
s;BLOCKS ARE NOT CORRUPTED 


;CHECK TO SEE IF IT SHOULD BE A CONTROL 
sCODE (POSSIBLY DICTIONARY ENTRY) 


sIF CONTROL CODE (DICTIONARY REFERENCE 
sPERHAPS) CALL IT QUITS 


;WE WILL LIVE WITH THIS ERROR, CORRECT 
;THE CHECKSUM TO ACCOUNT FOR NEW VALUE 
sCANCEL OUT WHAT WAS SUPPOSED TO BE 
sCORRECT FOR ERRONEOUS VALUE 

sPUT BACK CORRECTED VALUE 


s INCREMENT LOCATION 
sFINISHED THIS PAGE ? 
;NO-RETURN 

;YES-RESET ADDRESS 

s INCREMENT PCR TO NEXT PAGE 


s;CORRECT STACK 

= IF UFD QUIET 

; 

sMESSAGE FOR USER IN HIS OWN LANGUAGE 


sERROR WAS NOT ORION OR CKSUM ERROR, DO NOT 
;TRY TO CLEAR LANGUAGE BIT 

;IF NO OLD LANGUAGE TO RESTORE 

sCOMPUTE STARTING ADDRESS OF OLD LANG IN E2PROM 








-——-5 


SEQ oo10_—s! 








me 


| L1 
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LOAD LOCAL LANGUAGE INTO E2PROM 


---—--— 


SEQ 0011 


! 
518 002040 012702 005165 MOV #BUFF ,R2 sSTARTING ADDRESS OF OLD LANGUAGE TEXT 
519 002044 112205 10$: MOVB (R2)+,RS ;GET A BYTE 
520 002046 004767 000110 CALL WRBYTE s;WRITE IT OUT 
521 002052 001017 BNE 40$ sIF ERROR, GIVE UP 
S22 002054 062700 000002 ADD #2 ,RO s INCREMENT LOCATION 
523 002060 020027 166000 CMP RO, #ENDEQR sFINISHED THIS PAGE ? 
524 002064 001005 BNE 20% sNO-CONTINUE 
S25 002066 012700 165000 MOV #E2PROM,RO sYES-RESET ADDRESS 
526 002072 062737 000002 177522 ADD #2 ,90PCR s INCREMENT PCR TO NEXT PAGE 
S27 002100 077117 208: SOB R1,10$ sLOOP UNTIL DONE 
528 002102 026767 000320 000314 CMP UFOSIZ,OLOSIZ sIF THE SAME THEN NO LANGUAGE 
529 002110 001254 BNE EXIT1 ;IF LANGUAGE, LEAVE E2PROM LANG. BIT AS IT WAS 
530 002112 005005 40$: CLR RS ;TURN OFF LOCAL LANGUAGE BIT IN E2PROM 
531 002114 036737 175760 000052 BIT BIT6,a#S52 ;SEE IF UFD QUIET 
532 002122 001621 BEQ EXIT ;NO 
533 002124 -FRCTYP #MSGOO1 
000001 NARG NARGS 
000027 NTYPE NTYPE,#MSGOO1 
002124 012700 003046 MOV #MSGO01,RO 
002130 104044 EMT 44 
a4 002132 000615 BR EXIT sAND CALL IT A DAY 
ae -SBTTL PROGRAM SUBROUTINES — 
538 sMOVROM - MOVE BYTES FROM EEPROM TO MEMORY 
539 sENTRY- R1 = STARTING ADDRESS IN EEPROM (# OF BYTES FROM END) 
540 ; R2 = ADDRESS OF MEMORY BUFFER 
541 ; R4 = # OF BYTES TO MOVE 
542 sEXIT R1 - UNCHANGED 
543 : R2 - UPDATED MEMORY ADDRESS 
544 ; R3 = (BYTE) O IF VALID CKSUM 
545 ; "Z" FLAG SET IF CKSUM VALID 
546 
547 002134 010403 MOVROM: MOV R4,R3 sSAVE R4 
548 002136 004767 000200 CALL ROMADR s;LOAD PCR AND RO WITH LANGUAGE START AREA 
549 002142 010304 MOV R3,R4 sRESTORE BYTE COUNT 
550 002144 005003 CLR R3 sINIT CHECKSUM 
551 002146 004767 000142 S$: CALL REAROM ;GET A BYTE 
552 002152 110522 MOVB RS,(R2)+ sSAVE IT 
553 002154 077404 SOB R4,5$ ;LOOP TILL DONE 
554 002156 105703 TSTB R3 sIS CHECKSUM GOOD? 
= 002160 000207 RETURN 
6 
557 002162 120510 WRBYTE: CMPB RS,CRO) sIS THE NEW DATA DIFFERENT ? 
oad 002164 001452 BEQ 10$ sNO-DO NOT WRITE OVER 
560 002166 012703 000002 MOV #RETRY ,R3 
561 002172 010510 1$: MOV RS, CRO) sWRITE A LOCATION 
562 002174 012704 025370 MOV #DELAY ,R4 311 MS WAIT 
563 002200 077401 SOB R4,. sWASTE TIME 
564 002202 120510 CMPB RS,(RO) ;SEE IF IT TOOK 
565 002204 001442 BEQ 10$ sYES, ALL OKAY | 
566 002206 077307 SOB R3,1$ sIF AT FIRST YOU DON'T SUCCEED... 
567 002210 113704 177522 MOVB a#PCRLB,R4 sPCR PAGE OF BAD BYTE 
568 002214 106204 ASRB R4 sCONVERT TO PAGE # 
569 002216 062704 000060 ADD #'O,R4 ;CONVERT TO OCTAL 
570 002222 110467 000237 MOVB R4,FMSG1A sSTORE IT FOR PRINTING 
| 








ow 


COEECA EEPROM FR LANG LOR 





PROGRAM SUBROUTINES 


$71 
572 


573 


574 
575 


576 


577 
578 
579 


580 


599 
600 
601 


002314 
002316 
002320 
002324 
002326 
002332 
002340 


010046 


000207 


012005 
060503 
020027 
001005 
012700 
062737 
000207 








002500 


002430 
177400 


002526 


002531 


177400 


002551 


002554 


166000 


165000 
000002 177522 


MACRO YOS.02 


10$: 


;REAROM 
;PCRLB. 


10$: 
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SEQ 0012 

MOV RO, -(SP) sSAVE ROM ADDRESS 
-ITOA . #FMSG1B sCONVERT ROM ADDRESS TO OCTAL 
-NARG NARGS 

-NTYPE NTYPE , #FMSG1B 

MOV #FMSG1B,R1 

EMT 30 
-TYPMSG #FMSG1 s;PRINT OUT FIRST PART OF MESSAGE 
-NARG NARGS 


-NTYPE NTYPE,@FMSG1 
MOV #FMSG1,RO 


cr 86 
BIC #177400 ,R5 sMAKE SURE RS IS POSITIVE AND A BYTE 
-ITOA RS, #DUMMY1 sCONVERT TO OCTAL 
-NARG  NARGS 
-NTYPE NTYPE,RS 
MOV RS5,RO 
-NTYPE NTYPE , @DUMMY1 
MOV #DUMMY1,R1 
EMT 30 
-TYPMSG #FMSG1C sPRINT OUT LAST 3 DIGITS OF NUMBER € MESSAGE 
-NARG NARGS 


-NTYPE NTYPE,#FMSG1C 
MOV #FMSG1C,RO 


ew 5 
MOV aC SP)+,RO ;GET BYTE AT ROM ADDRESS 
BIC #177400 ,RO ;GET RID OF BUS NOISE 
-ITOA » #DUMMY2 sCONVERT TO OCTAL 
-NARG NARGS 

-NTYPE NTYPE , #DUMMY2 

MOV #DUMMY2,R1 

EMT 30 
.TYPMSG #FMSG1D sPRINT LOWER 3 BYTES & REST OF MESSAGE 
-NARG NARGS 


-NTYPE NTYPE,#@FMSG1D 

MOV #FMSG1D,RO 

EMT 3 
CLZ sCOULDN'T DO IT, SET ERROR FLAG 
RETURN 


- READS A BYTE FROM E2PROM ADDRESS (RO)+ INTO RS. AUTOMATICLY ADJUSTS 
UPDATES CKSUM IN R3 
ENTRY - RO ADDRESS IN ROM TO READ FROM 
R3 PARTIAL CKSUM 
PCRLB CORRECT VALUE FOR BYTE TO READ 
EXIT RO ADDRESS OF NEXT BYTE 
R3 UPDATED CKSUM 
RS BYTE READ 
PCRLB CORRECT VALUE FOR NEXT BYTE 
MOV CRO)+,RS ;GET A BYTE E UPDATE ADDR. BY 2 
ADD RS,R3 sUPDATE CKSUM 
CMP RO, #ENDEQR sSEE IF WE SHOULD SWITCH PAGES 
BNE 10$ 3NO 
MOV #E2PROM,RO sYES - GO TO START OF PAGE 
ADD #2,90PCR sADVANCE A PAGE 
RETURN 


——-— - ——_- -- = 4 








re ee = 


—--———_-- --—- -5 


3 
te) 
g 


, ‘ 
i . 
N1 
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SEQ 00 
PROGRAM SUBROUTINES ” 
602 
603 sROMADR - CALCULATE PAGE OFFSET FROM END OF ROM GIVEN SIZE IN BYTES 
604 3 ENTRY - R1 SIZE IN BYTES 
605 , $ EXIT - RO INITIAL ADDRESS FOR FIRST BYTE IN ROM 
606 F Ri SIZE IN BYTES 
+44 F PCRLB CORRECT VALUE FOR FIRST BYTE IN ROM | 
609 002342 010100 ROMADR: MOV R1,RO sCOPY BYTE COUNT 
610 002344 010105 MOV R1,R5 ;SECOND COPY 
611 002346 072527 177770 ASH #-8.,R5 sDIVIDE BYTE COUNT BY 256. BYTE PAGES 
612 002352 012704 000010 MOV #7+1,R4 sLAST PAGE IN 2 K PART « 1 
4 002356 160504 SUB RS,R4 ;STARTING PAGE NUMBER 
615 002360 042700 177400 BIC #177400,RO0 ;LEAVE ONLY BITS 7:0 
616 002364 006300 ASL RO sDOUBLE VALUE 
617 002366 001003 BNE 20$ 
618 002370 012700 165000 MOV #E2PROM,r0 3 
+34 002374 000406 BR 30$ ;IF O 
621 002376 005400 20$: NEG RO sMAKE STARTING ADDRESS BITS 8:0 
622 002400 042700 177000 BIC #177000 ,RO F 
623 002404 052700 165000 BIS #E2PROM,RO sMAKE A E2PROM ADDRESS 
14 002410 005304 DEC Ra sDECREMENT PAGE NUMBER BY 1 
626 002412 006304 30$: ASL R4 sMAKE PAGE NUMBER CORRECT FOR PCR 
627 002414 110437 177522 MOVB R4,a0PCRLB sCORRECT PAGE IN PCRLB 
14 002420 000207 RTS PC ;RETURN 
630 002422 000900 WERR: 0 sFLAG FOR BAD BYTE 
631 002424 177777 OLOSIZ: -1 3>0 - SIZE IN BYTES OF OLD LANGUAGE, 0 IF NO 
632 ;LANGUAGE, -1 IF E2PROM MAY BE BAD/NONEXISTANT 
4 002426 000000 UFDSIZ: 0 ;SIZE IN BYTES OF OLD UFD AREA 
ro -SBTTL “FIELD SERVICE MODE” ERROR MESSAGES 
636 
637 -ENABL LC 
638 002430 105 105 120 FMSGi: .ASCII /EEPROM write error, PCR page / 
002433 122 117 115 
002436 040 167 162 
002441 151 164 145 
002444 040 145 162 
002447 162 157 162 
002452 054 040 120 
002455 103 122 040 
002460 160 141 147 
002463 145 040 
639 002465 130 054 040 FMSGIA: .ASCII /X, address / 
002470 141 144 144 
002473 162 145 163 ‘ 
002476 163 040 
640 002500 FMSG1B: .BLKB 6 sFOR ADDRESS 
641 002506 015 012 104 -ASCIZ <CR><LF>/Date written / 
002511 141 164 141 
002514 040 167 162 
002517 151 164 164 
002522 145 156 040 


OS 





—_— 
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"FIELD SERVICE MODE” ERROR MESSAGES 


642 
643 
644 


650 


651 





DUMMY1: .BLKB 3 
FMSGIC: .BLKB 3 
104 -ASCIZ /, Date read / 


DUMMY2: .BLKB 3 
FMSG1D: .BLKB 3 
-ASCII /./ 
000 CRLF: -ASCIZ <CR><LF> 





SEQ 0014 


;3 UPPER BYTES NOT TO BE PRINTED 


33 UPPER BYTES NOT TO BE PRINTED 


156 FMSG2: .ASCIZ /Language Area not supported on this processor./<CR><LF> 


162 FMSG3: .ASCIZ /Current boot ROM version does not support language area./<CR><LF> 


145 FMSG4: .ASCIZ /Checksum error in EEPROM setup area./<CR><LF> 


COEECA EEPROM FR LANG LOR 


nn Re 
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"FIELD SERVICE MODE” ERROR MESSAGES 


652 
653 


654 


002772 
002775 
003000 
003003 


003006 
003011 
003014 
003017 
003022 
003025 
003030 
003033 
003036 
003041 
003044 
003046 
003051 
003054 
003057 
003062 
003065 
003070 
003073 





-SBTTL TRANSLATED LOADER ERROR MESSAGES 
<CR>!IMPOSSIBLE DE CHARGER FRANCAIS! 


115 MSGOOO: .ASCIZ 


040 MSGOO1: .ASCIZ 


-SBTTL START OF AREA TO BE LOADED INTO E2PROM 
-SBTTL FRANCAIS LANGUAGE TEXT 


TEXT: -BYTE 
BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
.BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
BYTE 
-BYTE 
BYTE 
-BYTE 
BYTE 
-BYTE 
BYTE 
-BYTE 
-BYTE 
BYTE 


! - RETOUR A L'‘ANGLAIS. !<CR> 


MOO1-TEXT 
M002 -M001 
M003-MO002 
M004 -M003 
MOOS -M004 
MO06-MO0S 
M007 -M006 
MO10-M007 
MO11-M010 
MO12-M011 
MO13-M012 
MO14-M013 
MO15-M014 
MO16-MO15 
MO17-M016 
MO020-M017 
M021-M020 
MO022-M021 
M023-M022 
M024-M023 
M025 -M024 
M026-M025 
M027 -M026 
MO30-M027 
MO31-M030 
MO32-M031 
M033-M032 
M034 -M033 
MO35-M034 


Le 


SEQ 0015 


3 


De 


003250 040 120 105 


i 
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SE 
FRANCAIS LANGUAGE TEXT = 
688 003133 001 -BYTE MO36-M035 
689 003134 000 -BYTE M037-M036 
690 003135 002 .BYTE M040-M037 
691 003136 024 -BYTE  M041-M040 
692 003137 000 -BYTE  MO042-M041 
693 003140 014 -BYTE M043-M042 
694 003141 017 -BYTE M044-M043 
695 003142 034 -BYTE  MO045-M044 
696 003143 027 -BYTE  MO046-M045 
697 003144 026 -BYTE M047-M046 
698 003145 033 -BYTE MOSO-M047 
699 003146 025 -BYTE ™051-M050 
700 003147 027 -BYTE MOS5S2-M051 
701 003150 025 .BYTE MO053-M0S2 
702 003151 025 .BYTE M054-M053 
703 003152 021 .BYTE MOSS-MO54 
704 003153 015 . .BYTE MOS6-MOS5S5S 
705 003154 140 .BYTE MOS7-MO56 
706 003155 012 ; -BYTE MO60-M057 
707 003156 000 -BYTE M061-M060 
708 003157 010 -BYTE  MO62-M061 
709 003160 002 -BYTE M063-M062 
710 003161 013 -BYTE  M064-M063 
711 003162 041 .BYTE MO065-M064 
712 003163 003 -BYTE MO66-M065 
713 003164 024 .BYTE  MO067-M066 
714 003165 075 .BYTE MO70-M067 
715 003166 010 .BYTE MO71-M070 
716 003167 903 .BYTE MO72-M071 
717 003170 123 .BYTE MO073-M072 
718 003171 003 -BYTE M0O74-M073 
719 003172 041 -BYTE MEND1-M074 
720 003173 106 . 122 101 M001: -ASCIZ !FRANCAIS! 
003176 116 103 101 
003201 111 123 000 
721 003204 077 000 MOO2: -ASCIZ !?! 
722 003206 101 111 104 M003: -ASCIZ !AIDE! 
003211 105 000 
723 003213 103 110 101 M004; .ASCIZ !CHARGEMENT! 
003216 122 107 105 
003221 115 105 116 
003224 124 000 
724 003226 114 111 123 MOOS: -ASCIZ ‘'!LISTE! 
003231 124 105 000 
725 003234 177 000 MOO6: -ASCIZ <177> ;Setup command 
726 003236 177 000 MOO7: -ASCIZ <177> ;Map command 
727 003240 177 000 MO10: ~ASCIZ <\TT> ;Test command 
728 003242 MO11 
729 003242 MO12 
730 003242 M013 
731 003242 M014 
732 003242 MO15 
733 003242 M016 
734 003242 M017 
735 003242 125 116 111 M020: -ASCII !UNITES PERIPHERIQUES DESCRIPTION!<CR> 
003245 124 105 123 
| 
} 





E2 | 
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SEQ 0017 
FRANCAIS WANGUAGE TEXT 

003253 122 111 120 
003256 110 105 122 
003261 111 121 125 
003264 105 123 040 
003267 104 105 123 
003272 103 122 111 
003275 120 124 111 
003300 117 116 015 

736 003303 124 101 120 M021: -ASCII !TAPEZ LES NOMS DES PROGRAMMES DE CHARGEMENT!<CR> 
003306 105 132 040 
003311 114 105 123 
003314 040 116 117 
003317 115 123 040 
003322 104 105 123 
003325 040 120 122 
003330 117 107 122 
003333 101 115 115 
003336 105 123 040 
003341 104 105 040 
003344 103 110 101 
003347 122 107 105 
003352 115 105 116 
003355 124 015 

737 003357 103 110 101 M022: -ASCII !CHARGEMENT DU SYSTEME A PARTIR DE ! 
003362 122 107 105 
003365 115 105 116 
003370 124 040 104 
003373 125 040 123 
003376 131 123 124 
003401 105 115 105 
003404 040 101 040 
003407 120 101 122 
003412 124 111 122 
003415 040 104 105 
003420 040 

738 003421 015 104 105 M023: -ASCII <CR>!DESCRIPTION DE LA COMMANDE!<CR><CR>!CHARGEMENT CHARGEZ E! 
003424 123 103 122 
003427 111 120 124 
003432 111 117 116 
003435 040 104 105 
003440 040 114 101 
003443 040 103 117 
003446 115 115 101 
003451 116 104 105 
003454 015 015 103 
003457 110 101 122 
003462 107 105 115 
003465 105 116 124 
003470 040 103 110 
003473 101 122 107 
003476 105 132 040 
003501 105 

739 003502 124 040 114 -ASCII !T LANCEZ LE SYSTEME A PARTIR DE !<CR>!LISTE!<TAB>! 2 
003505 101 116 103 
003510 105 132 040 
003513 114 105 040 





el 


| 
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003521 124 105 115 
003524 105 040 101 


FRANCAIS LANGUAGE TEXT 

003535 122 040 104 

003540 105 040 015 

003543 114 111 123 

003546 124 105 011 

003551 040 040 040 
740 003554 015 101 124 M024: 

003557 124 105 116 
741 003566 057 MO2S: 
742 003567 101 120 120 M026: 
003572 125 131 105 
003575 132 040 123 
003600 125 122 040 
003603 114 101 040 
003606 124 117 125 
003611 103 110 105 
003614 040 122 105 
003617 124 117 125 
003622 122 040 072 
003625 040 
743 003626 105 122 122 M027: 
003631 105 125 122 
003634 040 
744 003635 940 101 104 M030: 
003640 122 105 123 
003643 123 105 040 
745 003646 124 105 123 M031: 
003651 124 040 105 
003654 116 040 103 
003657 117 125 122 
003662 123 
746 003663 060 055 MO32: 
747 003665 015 105 116 M033: 
003670 124 122 105 
003673 132 040 125 
003676 116 105 040 
003701 103 117 115 
003704 115 101 116 
003707 104 105 040 
003712 120 125 111 
003715 123 040 101 
003720 120 120 125 
003723 131 105 132 
003726 040 123 125 
003731 122 040 114 
003734 101 040 124 
003737 117 125 103 
003742 110 105 040 
003745 122 105 124 
003750 117 125 122 
003753 040 072 040 
748 003756 M034: 
‘ 





’ 
---- 


-ASCII 


-ASCII 
-ASCIT 


-ASCII 


-ASCII 


-ASCII 


-ASCII 
-ASCII 
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!APPUYEZ SUR LA TOUCHE RETOUR : ! 


'ERREUR ! 
! ADRESSE ! 
!TEST EN COURS! 


40-/ 


<CR>!ATTENDEZ ! 
<CR>!ENTREZ UNE COMMANDE PUIS APPUYEZ SUR LA TOUCHE RETOUR : ! 


N 
' 


COEECA EEPROM FR LANG LOR 


- ee ee ee 


FRANCAIS LANGUAGE TEXT 


753 
754 


755 


756 


757 


758 


759 


760 


003756 


O11 





MO35: 
MO36: 
M037: 
116 M040: 


MO41: 
105 M042: 


111 M043: 


122 M044: 


040 M045: 


040 M046: 


040 M047: 


040 M050: 


BYTE 


-BYTE 
-ASCII 


-ASCII 


- ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 
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SEQ 0019 


TAB 


CR, SPACE 
!LANCEMENT DE LA ROM ! 


<CR>!MESSAGE 06!<CR> 


!UNITE PAS PRETE! 


!PERIPHERIQUE NON CHARGEABLE ! 


!IL N'Y A PAS DE DISQUE ! 


!IL N'Y A PAS DE BANDE ! 


'IL N'Y A PAS DE CONTROLEUR,! 


‘IL N'Y A PAS D'‘UNITE ! 


Sie Se 


MACRO YOS.02 Wednesday 


| 
COEECA EEPROM FR LANG LOR 
FRANCAI’ LANGUAGE TEXT 


761 004231 115 101 


762 004260 115 101 


004263 126 101 
004266 123 040 
004271 105 122 
004274 120 110 


763 004305 105 122 


004313 040 104 
004316 040 103 
004321 116 124 
004324 117 114 
004327 125 122 

764 004332 105 122 
004335 105 125 
004340 040 104 
004343 040 114 
004346 125 116 
004351 124 105 

765 004353 015 015 
004356 110 101 
004361 107 105 
004364 105 116 
004367 040 

766 004370 015 123 


004401 101 126 
004404 132 040 
004407 105 123 
004412 111 116 
004415 104 047 
004420 111 104 
004423 054 040 
004426 117 116 
004431 125 114 
004434 105 132 
004437 114 105 
004442 103 110 
004445 120 111 
004450 122 105 
004453 123 125 


004456 040 114 
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125 MOS1: 


125 MOSe2: 


122 M053: 


122 MOS4: 


103 MOSS: 


111 MOS6: 


-ASCII 


- ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


——_—--—_————--— —4 


He 


SEQ 0020 


!MAUVAIS NUMERO D'UNITE ! 


!ERREUR DU CONTROLEUR ! 


'ERREUR DE L'UNITE! 


<CR><CR>!CHARGEMENT ! 


!MAUVAIS PERIPHERIQUE ! 
<CR>!SI VOUS AVEZ BESOIN D'AIDE, CONSULTEZ LE CHAPITRE SUR LE! 


| 


See eee 


COEECA EEPROM FR LANG LOR 


FRANCAIS LANGUAGE TEXT 
767 004461 040 


768 004527 015 
769 004530 033 


770 004534 033 
771 004542 
772 004542 115 


773 004552 015 
774 004554 015 


775 004567 015 


004603 110 
004606 107 
004611 105 
004614 040 
004617 040 


776 004630 010 


777 004633 015 
004636 125 
004641 111 
004644 040 
004647 115 
004652 116 
004655 040 

778 004657 015 
004662 105 
004665 103 
004670 115 
004673 104 
004676 040 
004701 123 
004704 116 
004707 114 








aty ie VE 


Ie 
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062 M057: 
MO60: 
123 M061: 
M062: 
113 M063: 


122 M064: 


010 M065: 
101 M066: 


114 M067: 


- ASCII 


-ASCII 
-ASCII 
- ASCII 
-ASCII 


BYTE 
- ASCII 


-ASCII 


-BYTE 
-ASCII 


-ASCITI 


SEQ 0021 


! DEPANNAGE!<CR>!0U GUIDE DE L’UTILISATEUR.!<CR> 


<CR> 

<ESC>/[2u/ ;Erase screen 

<ESC>/(5;0H/ ;Set cursor to line 5 and col 1 
'MESSAGE ! 


CR,CR 
<CR><CR>/KDJ11-B >/ 


<CR>!ERREUR DE CHARGEMENT EN EEPROM !<CR> 


BACKSP , SPACE , BACKSP 
<CR>!MAUVAISE COMMANDE !<CR> 


<CR><CR>!LES COMMANDES DISPONIBLES SONT AIDE, CHARGEMENT, ET ! 





ea 


a <aooy 
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SEQ C022 =! 
FRANCAIS LANGUAGE TEXT 
004720 101 111 104 
004723 105 054 040 
004726 103 110 101 
004731 122 107 105 
004734 115 105 116 
004737 124 054 040 
004742 105 124 040 
779 004745 114 111 123 -ASCII !LISTE. ! 
004750 124 105 056 
004753 040 
780 004754 101 104 122 M070: .ASCII !ADRESSE ! 
004757 105 123 123 
004762 105 040 
781 004764 040 075 040 MO71: .ASCII /=/ 
782 004767 124 101 120 M072: ‘ASCII !TAPEZ LES NUMEROS DU PERIPHERIQUE ET DE L‘UNITE ET ! 
004772 105 132 040 
004775 114 105 123 
005000 040 116 125 
005003 115 105 122 
005006 117 123 040 
005011 104 125 040 
005014 120 105 122 
005017 111 120 110 
005022 105 122 111 
005025 121 125 105 
005030 040 105 124 
005033 040 104 105 
005036 040 114 047 
005041 125 116 111 
005044 124 105 040 
005047 105 124 040 
783 005052 015 101 120 .ASCII <CR>!APPUYEZ SUR LA TOUCHE RETOUR : ! 
005055 120 125 131 
005060 105 132 040 
005063 123 125 122 
005066 040 114 101 
005071 040 124 117 
005074 125 103 110 
005077 105 040 122 
005102 105 124 117 
005105 125 122 040 
005110 072 040 
784 005112 O11 040 040 MO73: .ASCII <TAB>! } 
785 005115 015 104 105 M074: ‘ASCII <CR>!DEBUT DU CHARGEMENT AUTOMATIQUE!<CR> 
005120 102 125 124 
005123 040 104 125 
005126 040 103 110 
005131 101 122 107 
005134 105 115 105 
005137 116 124 040 
005142 101 125 124 
005145 117 115 101 
005150 124 111 121 | 
005153 125 105 015 
786 005156 MEND1: 
787 .SBTTL NULL DICTIONARY BLOCK, CHECKSUM AND LANGUAGE HEADER 
788 005156 wb: 











| K2 
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SEQ 0023! 

NULL DICTIONARY BLOCK, CHECKSUM AND LANGUAGE HEADER 

789 005156 001 ENGWRD: .BYTE ENDBLK-ENGWRD 

790 005157 ENDBLK : 

791 

792 

793 005157 WEND : 

794 

005157 000 CKSUM: .byte 0 ;checksum 

797 

as 005160 MEND : ;END OF NULL TEXT 

800 005160 ME: 

801 005160 WE: 

802 

a ;FOREIGN LANGUAGE HEADER 

805 000002 Bi = WE -WBE377 ;DICTIONARY BYTE COUNT 7:0 

806 000000 B2 5 WE -WBE17400/256. ;DICTIONARY BYTE COUNT 10:8 

807 000062 B3 = MEND -text&377 ;TEXT BYTE COUNT 7:0 

ee 000144 B4 = MEND-text&017400/256. !140 ;TEXT BYTE COUNT 12:8 &€ ID=011 

810 005160 002 -BYTE B1 

811 005161 000 -BYTE B2 

812 005162 062 -BYTE 863 

813 005163 144 .BYTE B4 

ate 005164 150 .BYTE -<B1+B2+B3+B4>E377 ;THIS BYTE IS HEADER CHECKSUM 

816 005165 FLEND: 

817 005165 BUFF; ; TEMPORARY SAVE AREA FOR OLD AREA 


818 001000 . END START 


[eee ey 
oOo 


el 


Symbol teble 


BACKSP= 000010 
BCSR = 177520 


BOR = 177524 
BIié = 000100 
BIT7 = 000200 
BUFF 005165 
B1 = 000002 
B2 = 000000 
B83 = 000062 
B4 = 000144 
CKSUM 005157 

= 000015 


E2WRIT 001666 


. ABS. 005165 
000000 
Errors detected: 


COEECA EEPROM FR LANG LOR 


Work file reads: 
Work file writes: 0 
Size of work file: 
Size of core pool: 
Operating system: 


Elapsed time: 00:00:36.06 
OEECAO.BIC,COEECA0/CR/-SP=COEECAO 


FLEND 005165 
FMSG1 002430 
FMSG1A 002465 
FMSG1B 002500 
FMSGiC 002531 
FMSG1D 002554 
FMSG2 002563 
FMSG3 002644 
FMSG4 002737 
LANG 001262 
uF = 000012 
LNGHDR= 000140 
MAXERR= 000004 
ME 005160 
MEND 005160 
MEND1 005156 
MOVROM 002134 
MSGOOO 003006 
MSGOO1 003046 
MOO1 003173 
M002 003204 
MOO3 003206 
M004 003213 
MOOS 003226 
MOO6 003234 
M007 003236 


000 = CRW, I, GBL, ABS, ,OVR) 
i (RW,I,LCL,REL,CON) 


*** Assembler statistics 


0 


8553 Words ( 34 Pages) 
19402 Words ( 74 Pages) 
RSX-11M/PLUS (Under VAX/VMS) 


003240 
003242 
003242 
003242 
003242 
003242 
003242 
003242 
003242 
003303 
003357 
003421 
003554 
003566 
003567 
003626 
003635 
003646 
003663 
003665 
003756 
003756 
003757 
003757 
003761 
004005 
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004005 
004021 
004040 
004074 
004123 
004151 
004204 
004231 
004260 
004305 
004332 
004353 
004370 
004530 
004542 
004542 
004552 
004554 
004567 
004630 
004633 
004657 
004754 
004764 
004767 
005112 


——- -——- ---—- 5 


SEQ 0024 


WERR 002422 
WRBYTE 002162 
WRLANG 001462 


ne ee ee ee 


oa eer eee 


M002 003204 6-660 6-661 #6-721 


COEECAO CREATED BY MACRO ON 6-MAR-85 AT 15:24 PAGE 1 
SYMBOL CROSS REFERENCE CREF vo2 we ee 
SYMBOL VALUE REFERENCES 
BACKSP = 000010 05-260 6-776 6-776 
BCSR = 177520 05-239 6-315 *6-316 *6-473 ' 
BOR = 177524 05-254 
BIT6 = 000100 05-258 6-510 6-531 
BIT7 = 000200 05-257 6-452 6-458 6-461 
BUFF 005165 6-370 6-409 6-413 6-441 6-518 #6-817 
B1 = 000002 96-805 6-810 6-814 
B2 = 000000 06-806 6-811 6-814 
B3 = 000062 6-807 6-812 6-814 
B4 = 000144 #6 -808 6-813 6-814 
CKSUM 005157 6-428 6-497 #6-500 96-795 
CR = 000015 95-255 6-641 6-648 6-649 6-650 6-651 6-653 6-654 6-735 
6-736 6-738 6-738 6-738 6-739 6-740 6-747 6-751 6-754 
6-754 6-765 6-765 6-766 6-767 6-767 6-768 6-773 6-773 
6-774 6-774 6-775 6-775 6-777 6-777 6-778 6-778 6-783 
6-785 6-785 
CRLF 002560 6-471 6-471 96-648 
DELAY = 025370 05-247 6-562 
DUMMY1 002526 6-575 6-575 %6-642 
DUMMY2 002551 6-579 6-579 #6-645 
ENDBLK 005157 6-789 96-790 
ENDE2R = 166000 05-245 6-349 6-503 6-523 6-596 
ENGWRD 005156 06-789 6-789 
ESC = 000033 05-262 6-769 6-770 
EXIT 001566 06-455 6-532 6-534 
EXIT1 001642 6-460 6-465 #6-471 6-514 6-529 
E2LLB = 165006 05-244 6-456 
E2PAR = 165316 05-243 6-466 
E2PROM = 165000 #5-242 5-243 5-244 5-245 6-324 6-333 6-335 6-505 6-525 
6-598 6-618 6-623 
E2WRIT 001666 6-443 6-449 96-477 
FLEND 005165 5-264 96-816 
FMSG1 002430 6-573 6-573 96-638 
FMSG1A 002465 *6-570 #6-639 
FMSGIB 002500 6-572 6-572 #6-640 
FMSGI1C 002531 6-576 6-576 96-643 
FMSG1D 002554 6-580 6-580 #6 -646 
FMSG2 002563 6-321 6-321 #6-649 
FMSG3 002644 6-344 6-344 #6-650 
FMSG4 002737 6-337 6-337 06-651 
LANG 001262 6-368 06-380 
LF = 000012 05-256 6-641 6-648 6-649 6-650 6-651 
LNGHDR = 000140 #5-248 6-380 
MAXERR = 000004 05-252 6-481 
ME 005160 #6 -800 
MEND 005160 06-798 6-807 6-808 
MEND1 005156 6-487 6-719 #6 -786 
MOVROM 002134 6-371 6-410 6-417 #6-547 
MSGO00 ©=_—dQ0 3006 6-512 6-512 96-653 | 
MSGOO1 003046 6-533 6-533 06-654 
M001 003173 6-484 6-659 6-666 #6-720 
| 
i 


eee ee 





- 


r 
| Ne 
COEECAO CREATED BY MACRO ON 6-MAR-85 AT 15:24 PAGE 2 
SE | 
SYMBOL CROSS REFERENCE CREF  vo2 on 
SYMBOL VALUE REFERENCES 
M003 003206 6-661 6-662 96-722 
M004 003213 6-662 6-663 96-723 
MOOS 003226 6-663 6-664 06-724 ' 
M006 003234 6-664 6-665 6-725 | 
M007 003236 6-665 6-666 96-726 
M010 003240 6-666 6-667 6-727 
MO11 003242 6-667 6-668 06-728 f 
MO12 003242 6-668 6-669 6-729 
M013 003242 6-669 6-670 6-730 
M014 003242 6-670 6-671 96-731 
Mo15 003242 6-671 6-672 06-732 
M016 003242 6-672 6-673 6-733 
M017 003242 6-673 6-674 06-734 
M020 003242 6-674 6-675 96-735 
M021 003303 6-675 6-676 06-736 
MO22 003357 6-676 6-677 06-737 
M023 003421 6-677 6-678 96-738 
M024 003554 6-678 6-679 96-740 
M025 003566 6-679 6-680 06-741 
M026 003567 6-680 6-681 06-742 
M027 003626 6-681 6-682 06-743 
M030 003635 6-682 6-683 06-744 
M031 003646 6-683 6-684 06-745 
MO32 003663 6-684 6-685 06-746 
M033 003665 6-685 6-686 6-747 
M034 003756 6-686 6-687 06-748 
MO35 003756 6-687 6-688 6-749 
M036 003757 6-688 6-689 6-750 
M037 003757 6-689 6-690 06-751 
M040 003761 6-690 6-691 6-752 
M041 004005 6-691 6-692 6-753 
M042 004005 6-692 6-693 06-754 
M043 004021 6-693 6-694 96-755 
M044 004040 6-694 6-695 06-756 
M045 004074 6-695 6-696 6-757 
M046 004123 6-696 6-697 06-758 
M047 004151 6-697 6-698 96-759 
MOSO 004204 6-698 6-699 #6-760 
MOS1 004231 6-699 6-700 96-761 
MOoS2 004260 6-700 6-701 6-762 
MO53 004305 6-701 6-702 96-763 
MOS4 004332 6-702 6-703 06-764 
MOSS 004353 6-703 6-704 96-765 
MOS6 004370 6-704 6-705 6-766 
MOS7 004530 6-705 6-706 6-769 
M060 004542 6-706 6-707 6-771 
M061 004542 6-707 6-708 6-772 
M062 004552 6-708 6-709 06-773 
M063 004554 6-709 6-710 06-774 
M064 004567 6-710 6-711 06-775 
M065 004630 6-711 6-712 06-776 
M066 004633 6-712 6-713 6-777 
| | 


a a RR RR A Ry 
' 
' 


COEECAO CREATED BY MACRO ON 6-MAR-85 AT 15:24 


SYMBOL CROSS REFERENCE 


SYMBOL VALUE 

M067 004657 
M070 004754 
MO71 004764 
MO72 004767 
M073 005112 
M074 005115 


NTYPE = 000027 


OLDSIZ 002424 


PCR = 177522 
PCRLB == 177522 
QUIT 002004 


START 001000 
TAB = 000011 
TEXT 003076 


WB 005156 
WE 005160 
WEND 005157 
WERR 002422 


REFERENCES 


6-713 
6-714 
6-715 
6-716 
6-717 
6-718 
06-321 
6-512 
6-575 
06-321 
6-512 
96-575 
*6-339 
6-631 
#5-240 
#5-241 
6-482 
6-345 
6-386 
#5-250 
#5-246 
6-384 
#5-264 
#5-261 
96-314 
#5-259 
5-264 
#5-249 
*6-377 
6-788 
#6-801 
6-793 
*6-479 
6-464 
6-358 


6-714 
6-715 
6-716 
6-717 
6-718 
6-719 
6-321 
96-533 
6-575 
6-321 
96-533 
6-575 
*6-376 


*6-314 
*6-455 
6-485 
#6-510 
6-387 
6-560 
6-341 
6-438 
6-437 
6-751 
6-818 
6-739 
6-424 
6-367 
*6-407 
6-805 
6-805 


6-481 
6-469 
6-372 


96-778 
96-780 
06-781 
96-782 
96-784 
96-785 
96-337 

6-533 
96-576 
06-337 

6-533 
06-576 
*6-382 


*6-340 
6-567 
6-488 


6-388 


6-517 
6-447 
6-776 


6-749 
6-446 
6-399 
*6-412 
6-806 
6-806 


6-630 
6-477 
6-378 
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CREF 


6-337 
96-572 
6-576 
6-337 
#6-S72 
6-576 
6-408 


*6-474 
*6-627 
6-491 


6-390 


6-548 


6-784 
#6 -659 


6-416 


6-520 
6-381 


vo2 


B3 


96-344 
6-572 
#6-579 
96-344 
6-572 
96-579 
6-414 
*6-506 
6-494 


6-392 


6-609 


6-659 
*6-420 


#6-557 
6-418 


6-344 
6-572 
6-579 
6-344 
96-573 
6-579 
*6-416 
*6-526 
#6-509 


6-551 


6-807 
6-436 


96-424 


96-471 
#6-573 
6-579 
06-471 
6-573 
#6 -580 
*6-419 


*6-599 


#6-594 


6-808 
6-439 





SEQ 0027 


6-471 #6-512 
6-573 96-575 
6-580 6-580 
6-471 #6-512 
#6-S575 6-575 
6-580 

6-513 6-528 
6-528 #6 -633 


a a er RS, RS AS A ee ee a ee 


C3 


SEQ 0028 
MACRO CROSS REFERENCE CREF v02 


MACRO NAME REFERENCES 


-FRCTY #5-299 6-471 6-512 6-533 
-ITOA #5-278 6-572 6-575 6-579 


| 
COEECAO CREATED BY MACRO ON 6-MAR-85 AT 15:24 PAGE 4 
. TYPMS 5-267 6-321 6-337 6-344 6-573 6-576 6-580 
| 
' 
| 


